home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / FREENET / MELL / NETLIB00 / NetLib / c / aton < prev    next >
Text File  |  1995-05-24  |  4KB  |  134 lines
  1. /*
  2.  * Copyright (c) 1983, 1990, 1993
  3.  *    The Regents of the University of California.  All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms, with or without
  6.  * modification, are permitted provided that the following conditions
  7.  * are met:
  8.  * 1. Redistributions of source code must retain the above copyright
  9.  *    notice, this list of conditions and the following disclaimer.
  10.  * 2. Redistributions in binary form must reproduce the above copyright
  11.  *    notice, this list of conditions and the following disclaimer in the
  12.  *    documentation and/or other materials provided with the distribution.
  13.  * 3. All advertising materials mentioning features or use of this software
  14.  *    must display the following acknowledgement:
  15.  *    This product includes software developed by the University of
  16.  *    California, Berkeley and its contributors.
  17.  * 4. Neither the name of the University nor the names of its contributors
  18.  *    may be used to endorse or promote products derived from this software
  19.  *    without specific prior written permission.
  20.  *
  21.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31.  * SUCH DAMAGE.
  32.  */
  33.  
  34. #include "netinet/in.h"
  35. #include "arpa/inet.h"
  36. #include "Internet:sys.h.byteorder"
  37. #include <ctype.h>
  38.  
  39. #define isascii(c) (c<0x80)
  40.  
  41. /*
  42.  * Check whether "cp" is a valid ascii representation
  43.  * of an Internet address and convert to a binary address.
  44.  * Returns 1 if the address is valid, 0 if not.
  45.  * This replaces inet_addr, the return value from which
  46.  * cannot distinguish between failure and a local broadcast address.
  47.  */
  48.  
  49. u_long inet_aton(const char *cp, struct in_addr *addr)
  50. {
  51.     u_long val;
  52.     int base, n;
  53.     char c;
  54.     u_int parts[4];
  55.     u_int *pp = parts;
  56.  
  57.     for (;;) {
  58.         /*
  59.          * Collect number up to ``.''.
  60.          * Values are specified as for C:
  61.          * 0x=hex, 0=octal, other=decimal.
  62.          */
  63.         val = 0; base = 10;
  64.         if (*cp == '0') {
  65.             if (*++cp == 'x' || *cp == 'X')
  66.                 base = 16, cp++;
  67.             else
  68.                 base = 8;
  69.         }
  70.         while ((c = *cp) != '\0') {
  71.             if (isascii(c) && isdigit(c)) {
  72.                 val = (val * base) + (c - '0');
  73.                 cp++;
  74.                 continue;
  75.             }
  76.             if (base == 16 && isascii(c) && isxdigit(c)) {
  77.                 val = (val << 4) +
  78.                     (c + 10 - (islower(c) ? 'a' : 'A'));
  79.                 cp++;
  80.                 continue;
  81.             }
  82.             break;
  83.         }
  84.         if (*cp == '.') {
  85.             /*
  86.              * Internet format:
  87.              *    a.b.c.d
  88.              *    a.b.c    (with c treated as 16-bits)
  89.              *    a.b    (with b treated as 24 bits)
  90.              */
  91.             if (pp >= parts + 3 || val > 0xff)
  92.                 return (0);
  93.             *pp++ = val, cp++;
  94.         } else
  95.             break;
  96.     }
  97.     /*
  98.      * Check for trailing characters.
  99.      */
  100.     if (*cp && (!isascii(*cp) || !isspace(*cp)))
  101.         return (0);
  102.     /*
  103.      * Concoct the address according to
  104.      * the number of parts specified.
  105.      */
  106.     n = pp - parts + 1;
  107.     switch (n) {
  108.  
  109.     case 1:                /* a -- 32 bits */
  110.         break;
  111.  
  112.     case 2:                /* a.b -- 8.24 bits */
  113.         if (val > 0xffffff)
  114.             return (0);
  115.         val |= parts[0] << 24;
  116.         break;
  117.  
  118.     case 3:                /* a.b.c -- 8.8.16 bits */
  119.         if (val > 0xffff)
  120.             return (0);
  121.         val |= (parts[0] << 24) | (parts[1] << 16);
  122.         break;
  123.  
  124.     case 4:                /* a.b.c.d -- 8.8.8.8 bits */
  125.         if (val > 0xff)
  126.             return (0);
  127.         val |= (parts[0] << 24) | (parts[1] << 16) | (parts[2] << 8);
  128.         break;
  129.     }
  130.     if (addr)
  131.         addr->s_addr = htonl(val);
  132.     return (1);
  133. }
  134.